      Implicit Real*8(A-H,O-Z)
      Parameter(
     +          zero  = 0d0,
     +          half  = 5d-1,
     +          one   = 1d0,
     +          two   = 2d0,
     +          three = 3d0,
     +          four  = 4d0,
     +          fife  = 5d0,
     +          six   = 6d0,
     +          ten   = 1d1,
     +          nch_pr= 1
     +         )
